home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / Intuition / Alert.st next >
Text File  |  2000-05-06  |  2KB  |  51 lines
  1. "--------------------------------------------------------------------"
  2. " Alert Class implements control of Amiga Alerts.                    "
  3. " the message string that the user supplies will be truncated at 128 "
  4. " characters & the alert number will be prepended to it.             "
  5. " -------------------------------------------------------------------"
  6. " WARNING:  07-May-2000                                              "
  7. " This Class has been removed from AmigaTalk until Cutting & pasting "
  8. " of Alert Strings gets straightened out (use Requesters instead!).  "
  9. "--------------------------------------------------------------------"
  10.  
  11. Class Alert :Glyph
  12. !
  13.   alertNumber alertHeight alertMessage alertResponse name
  14. !
  15. [
  16.    remove
  17.       <primitive 186 0 name>
  18. |
  19.    getAlertNumber
  20.       ^ alertNumber <- <primitive 186 2 1 name>
  21. |
  22.    getAlertHeight
  23.       ^ alertHeight <- <primitive 186 2 2 name>
  24. |
  25.    getAlertMessage
  26.       ^ alertMessage <- <primitive 186 2 0 name>
  27. |
  28.    setAlertNumber: number
  29.       <primitive 186 3 1 number name>.
  30.       alertNumber <- number
  31. |
  32.    setAlertHeight: height
  33.       <primitive 186 3 2 height name>.
  34.       alertHeight <- height
  35. |
  36.    setAlertMessage: newMsg
  37.       <primitive 186 3 0 newMsg name>.
  38.       alertMessage <- newMsg
  39. |
  40.    displayAlert
  41.       ^ alertResponse <- <primitive 186 4 name>
  42. |
  43.    new: newAlert
  44.      name         <- newAlert.
  45.      alertMessage <- newAlert.
  46.      alertNumber  <- 16rFFFFFFFF.
  47.      alertHeight  <- 50.
  48.      <primitive 186 1 alertNumber alertHeight newAlert name>.
  49.      ^ self
  50. ]
  51.